home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / solution4.18 < prev    next >
Text File  |  2007-02-28  |  757b  |  28 lines
  1. 0010 DIM PLAYER$ OF 1, COMP$(3) OF 1, RESULT$ OF 2
  2. 0020 FOR K:=1 TO 3 DO READ COMP$(K)
  3. 0030 INPUT "TYPE S OR P OR B:": PLAYER$
  4. 0040 RESULT$:=PLAYER$+COMP$(RND(1,3))
  5. 0050 CASE RESULT$ OF
  6. 0060 WHEN "SS"
  7. 0070 PRINT "BOTH CUT. A DRAW."
  8. 0080 WHEN "SP"
  9. 0090 PRINT "SCISSORS CUT PAPER. YOU WIN."
  10. 0100 WHEN "SB"
  11. 0110 PRINT "BRICK BLUNTS SCISSORS. I WIN."
  12. 0120 WHEN "PS"
  13. 0130 PRINT "PAPER CUT BY SCISSORS. I WIN."
  14. 0140 WHEN "PP"
  15. 0150 PRINT "BOTH PAPER. A DRAW."
  16. 0160 WHEN "PB"
  17. 0170 PRINT "PAPER WRAPS BRICK. YOU WIN."
  18. 0180 WHEN "BS"
  19. 0190 PRINT "BRICK BLUNTS SCISSORS. YOU WIN."
  20. 0200 WHEN "BP"
  21. 0210 PRINT "BRICK WRAPPED BY PAPER. I WIN."
  22. 0220 WHEN "BB"
  23. 0230 PRINT "BOTH BRICK. A DRAW."
  24. 0240 OTHERWISE 
  25. 0250 PRINT "ERROR IN INPUT."
  26. 0260 ENDCASE 
  27. 0270 DATA "S","P","B"
  28.